home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #14 / Monster Media No. 14 (April 1996) (Monster Media, Inc.).ISO / prog_d / qrep097a.zip / MAIN.PAS < prev    next >
Pascal/Delphi Source File  |  1995-12-05  |  3KB  |  108 lines
  1. unit Main;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, StdCtrls,simprep,mdrep, biorep,ExtCtrls,printers, DBCtrls, DB,
  8.   DBTables,quickrep, Spin,demopre, {ComCtrls,}Labelrep;
  9.  
  10. type
  11.   TTQuickReportDemo = class(TForm)
  12.     PreviewBtn: TButton;
  13.     PrintBtn: TButton;
  14.     PrintDialogChk: TCheckBox;
  15.     Bevel1: TBevel;
  16.     ExitBtn: TButton;
  17.     Image1: TImage;
  18.     Shape1: TShape;
  19.     Label2: TLabel;
  20.     ReportCombo: TRadioGroup;
  21.     OrientationCombo: TRadioGroup;
  22.     Label1: TLabel;
  23.     SpinEdit1: TSpinEdit;
  24.     Label3: TLabel;
  25.     PreviewCombo: TRadioGroup;
  26.     Label4: TLabel;
  27.     procedure ExitBtnClick(Sender: TObject);
  28.     procedure FormCreate(Sender: TObject);
  29.     procedure PrintBtnClick(Sender: TObject);
  30.     procedure PreviewBtnClick(Sender: TObject);
  31.     procedure SpinEdit1Change(Sender: TObject);
  32.     procedure ShowPreview;
  33.     procedure PreviewComboClick(Sender: TObject);
  34.   private
  35.     { Private declarations }
  36.     aReport : TQuickReport;
  37.     procedure PickReport;
  38.   public
  39.     { Public declarations }
  40.   end;
  41.  
  42. var
  43.   TQuickReportDemo: TTQuickReportDemo;
  44.  
  45. implementation
  46.  
  47. {$R *.DFM}
  48.  
  49. procedure TTQuickReportDemo.ExitBtnClick(Sender: TObject);
  50. begin
  51.    Close;
  52. end;
  53.  
  54. procedure TTQuickReportDemo.FormCreate(Sender: TObject);
  55. begin
  56.    ReportCombo.ItemIndex:=0;
  57.    OrientationCombo.ItemIndex:=0;
  58.    PreviewCombo.ItemIndex:=0;
  59. end;
  60.  
  61. procedure TTQuickReportDemo.PickReport;
  62. begin
  63.    case ReportCombo.ItemIndex of
  64.       0 : aReport:=SimpForm.SimpRep;
  65.       1 : aReport:=Bioform.BioRep;
  66.       2 : aReport:=mdform.mdRep;
  67.       3 : aReport:=LabelForm.Rep;
  68.    end;
  69.    aReport.DisplayPrintDialog:=PrintDialogChk.Checked;
  70.    if OrientationCombo.ItemIndex=0 then
  71.       aReport.Orientation:=poPortrait
  72.    else
  73.       aReport.Orientation:=poLandscape;
  74. end;
  75.  
  76. procedure TTQuickReportDemo.PrintBtnClick(Sender: TObject);
  77. begin
  78.    PickReport;
  79.    aReport.Print;
  80. end;
  81.  
  82. procedure TTQuickReportDemo.PreviewBtnClick(Sender: TObject);
  83. begin
  84.    PickReport;
  85.    aReport.Preview;
  86. end;
  87.  
  88. procedure TTQuickReportDemo.SpinEdit1Change(Sender: TObject);
  89. begin
  90.    QRPrinter.Thumbs:=SpinEdit1.Value;
  91. end;
  92.  
  93. procedure TTQuickReportDemo.ShowPreview;
  94. begin
  95.    PrevForm.ShowModal;
  96. end;
  97.  
  98. procedure TTQuickReportDemo.PreviewComboClick(Sender: TObject);
  99. begin
  100.    if PreviewCombo.ItemIndex=0 then
  101.       QRPrinter.OnPreview:=nil
  102.    else
  103.       QRPrinter.OnPreview:=ShowPreview;
  104. end;
  105.  
  106.  
  107. end.
  108.